home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 001 / tsthayes.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1984-10-12  |  2.8 KB  |  100 lines
  1. 10  CLS
  2. 20  PRINT "Hayes SMARTMODEM Switch Test"
  3. 30   PRINT "(C) Copyright 1984, Sally A. Gaer"
  4. 50  PRINT
  5. 51  PRINT"IS THE HAYES MODEM HOOKED TO COM1 OR COM2";:INPUT HA$
  6. 55  GOSUB 960
  7. 60  PRINT "MODEM test started.  Test will take about 15 seconds ..";
  8. 70  ON ERROR GOTO 890
  9. 80  DIM A$(20)
  10. 90  S1$="?": S2$="?": S3$="?": S4$="?": S5$="?": S6$="?"
  11. 100  S7$="?": S8$="?"
  12. 110  IF HA$="COM1" THEN OPEN "COM1:300,E,7,2" AS #1 ELSE OPEN "COM2:300,E,7,2" AS #1
  13. 120  S6$="D"
  14. 130  '
  15. 140  '
  16. 150  '------------Reset Modem------------
  17. 160  '
  18. 170  PRINT "..";
  19. 180  FOR I=1 TO 2000
  20. 190  NEXT I
  21. 200  PRINT#1,"+++";
  22. 210  FOR I=1 TO 2000
  23. 220  NEXT I
  24. 230  PRINT#1,"ATZ"
  25. 240  FOR I=1 TO 2000
  26. 250  NEXT I
  27. 260  PRINT "..";
  28. 270  '
  29. 280  '
  30. 290  '-------Reset modem again and check for return code and echo-----
  31. 300  '
  32. 310  GOSUB 830
  33. 320  A=INSTR(1,A$,"OK"): IF A>0 THEN S3$="D": S2$="U": GOTO 360
  34. 330  A=1
  35. 340  A=INSTR(A,A$,"0"): IF A>0 THEN S3$="D": S2$="D": GOTO 360
  36. 350  S3$="U"
  37. 360  PRINT#1,"ATZ"
  38. 370  FOR I=1 TO 2000: NEXT I
  39. 380  PRINT "..";
  40. 390  GOSUB 830
  41. 400  '
  42. 410  '-------Check for echo---------
  43. 420  '
  44. 430  IF LEFT$(A$,3)="ATZ" THEN S4$="U": GOTO 440 ELSE S4$="D"
  45. 440  IF LEFT$(A$,1)="0" THEN S2$="D": GOSUB 670: STOP
  46. 450  GOSUB 500: GOTO 600
  47. 460  '
  48. 470  '
  49. 480  '-------CheCk Modem Status Registers for switch settings ------
  50. 490  '
  51. 500  PRINT#1,"AT S13? S14? S15?"
  52. 510  FOR I=1 TO 4000: NEXT I
  53. 520  GOSUB 830
  54. 530  IF S4$="U" THEN A$=MID$(A$,19,255)
  55. 540  S13=VAL(LEFT$(A$,3)): S14=VAL(MID$(A$,5,3)): S15=VAL(MID$(A$,9,3))
  56. 550  IF S13=0 AND S14=0 AND S15=0 THEN S8$="U" ELSE S8$="D"
  57. 560  RETURN
  58. 570  '
  59. 580  '
  60. 590  '
  61. 600  S5$=MID$(A$,7,1): IF S5$="1" OR S5$="3" OR S5$="5" OR S5$="7" THEN S5$="U" ELSE S5$="D"
  62. 610  IF S8$="U" THEN S5$="?": S2$="?": S3$="?"
  63. 620  GOSUB 670
  64. 630  C$=S1$+S2$+S3$+S4$+S5$+S6$+S7$+S8$
  65. 640  IF C$="?UDUDD?D" THEN PRINT "MODEM switch settings are correct": BEEP: GOTO 1020
  66. 650  PRINT "MODEM switch settings are incorrect"
  67. 660  STOP
  68. 670  PRINT "Modem switch settings"
  69. 680  PRINT "Switch 1 = ";S1$;" D-FORCES TR ON, U-TR FROM COMPUTER"
  70. 690  PRINT "Switch 2 = ";
  71. 700  IF S2$="U" THEN PRINT S2$+ " ENGLISH WORD RESULT CODES": GOTO 710 ELSE COLOR 31: PRINT S2$: COLOR 15
  72. 710  PRINT "Switch 3 = ";
  73. 720  IF S3$="D" THEN PRINT S3$+" RESULT CODES SENT TO COMPUTER": GOTO 730 ELSE COLOR 31: PRINT S3$: COLOR 15
  74. 730  PRINT "Switch 4 = ";
  75. 740  IF S4$="U" THEN PRINT S4$+" ECHO COMMAND CHARACTERS": GOTO 750 ELSE COLOR 31: PRINT S4$: COLOR 15
  76. 750  PRINT "Switch 5 = ";
  77. 760  IF S5$="D" THEN PRINT S5$+" DONT AUTO ANSWER": GOTO 770 ELSE COLOR 31: PRINT S5$+" AUTO ANSWER": COLOR 15
  78. 770  PRINT "Switch 6 = ";
  79. 780  IF S6$="D" THEN PRINT S6$: GOTO 790 ELSE COLOR 31: PRINT S6$: COLOR 15
  80. 790  PRINT "Switch 7 = ";
  81. 800  IF S7$="?" THEN PRINT S7$: GOTO 810 ELSE COLOR 31: PRINT S7$: COLOR 15
  82. 810  PRINT "Switch 8 = ";S8$;:IF S8$="D" THEN PRINT " ENABLE COMMAND RECOGNITION " ELSE PRINT " DISABLE COMMAND RECOGNITION"
  83. 820  RETURN
  84. 830  A$=""
  85. 840  WHILE NOT EOF(1)
  86. 850  PRINT ".";
  87. 860  A$=A$+INPUT$(LOC(1),#1)
  88. 870  WEND
  89. 880  RETURN
  90. 890  IF ERR=24 THEN S6$="U": GOSUB 670: STOP
  91. 900  PRINT "Unknown error "
  92. 910  RESUME
  93. 960  PRINT : PRINT "Turn your modem power switch off and then on"
  94. 970  PRINT "Press enter when you have done this"
  95. 980  A$=""
  96. 990  A$=INKEY$: IF A$="" THEN GOTO 990
  97. 1000  RETURN
  98. 1010  RETURN
  99. 1020  SYSTEM
  100.